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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 ; LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7869 ** MAP EC HISTORY ** 002500 25A5 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
Lp He ie ae he He Oe 2h He ae a fe He ake he he 2c ee He ie He eae fe 2 Oe hc a ie He hee oe ae ae he i ee he ee a eae ae a 2 2h oe 3 i ae ae he OK eo OK ok ic 199 PS SSS SS LS SSS SSS PSE SSS SESS SS SL SSS SESS SSS SSE LSS SLES SST SS SESE SSL SSL SST SL SLL SF 3 
5k * VAIL ELL LESS SSL SSS SS SLES SSS SSS SS SS TS SS SS SS TSS SSS SS LS TSS SS SSS SS SSS SSS SL. SS 
6 * I HK PREREQUISITES OK * 201 ** * 
7 x e 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVTSOR (D3C00) *K 
g * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * x 
9 x 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR xk 
VO RR RI I RR ROR FO TOR RIOR IO I RRO RRR ek ke of i eo ok ico oh ak ake ok ok 205 ** THE INDICATED MESSAGE(S). THERE APF FOUR TABLES USED FOR THIS ** 
11 * * 206 ** PURPOSE THEY ARE: ; OK 
12 * He MODIFICATIONS kK * 207 ** eK 
13 * * 208 ** STEP AND RULE ADDRESS TABLE ek 
14 * CHANGES MADE TO MEET PROGRAM REQUIREMENTS *« 209 ** THIS TABLE GIVES THE ADDRFSS OF THE RULE TO INVOKE AND xx 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. i 
16 IK HE he he Be ate ae ak ae he Ke ae ae ae ee ac 2 ae ic oe ae ae ae fe ae ae oe ik ic at of ec ak oe he he ic ae ok aie ae ake oe ae ek ae i oe cae ote ote oe ae oh oie 2c ae he ek ie oe 211 % ENTRIES ARE AS FOLLOWES 2K 
17 * * 212 ** A AN ADDRESS OF THE RULE DC STAPT APEA * 
18 * eK PEA'*S INCORPORATED oie ek * 213 ** B THE STEP NUMBER IN DECIMAL eK 
19 * x 214 ** Cc AN EQUATE FOR THE STEP NUMBER *« 
20 * NONE * 215: 4% ** 
21 * * 216 ** RULE INFORMATION TABLE x 
PYM TESS OCLLSC ASSL OSCSSLS SSCS CS SLES ESS SSS SS SSCL SS SL SS SS SSS CSS SS SC SS SSL SL Se S| 217 ** THIS TABLE CONTAINES THE PEQUIRED INFORMATION TO EXECUTE ** 
23. * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * 
2u * HK IK SPECIAL INSTRUCTIONS Heke * 219 ** UNICUELY DEFINED AFEA INDICATED BELOW. END CF TABLE IS %K 
25 * * 220 ** INDICATED WITH A X'OOO00' FOR THE RULE EQUATE. x 
26 * NONE * 221 ** * 
27 * * 222 ** SQUES kK 
28 OR OR to ko i ak dR tok icici tak doko ok Jak ak dak gk tok kok 225. 5% A) RULE EQUATE X'0100! * 
29 * * 224 ** B) ADDRESS OF THE YES LEG RULE * 
30 * eK Be Cx HESTORY KK * 225 ** ie 
31 * * 226 ** SFIXT » % 
32 * DATE 17DEC76 DATE O4MART7 DATE 10JUN77 DATE O1MART78 * 227 ** A) RULE EQUATE X'0101' ** 
33 E.C. 578486 E.C. 578638 £E.C. 578625 E.C. 755285 : aan : BR) ADDRESS OF MESSAGE TO PRINT sd 
QS A A Re a eo ee i ee 2 eK ef RC Re a eC 2 ae I 2 RC Re a 2c 2 of 2K ic 2c ak ok ke ic 2k 230 ** $STOP a 
002500 37 17869 START x'2500! START ADDRESS OF ALL 'TI' TYPE PROG 231 ** 3} RULE EQUATE X'0102! ae 
000100 38 @OQUES EOU X¥'0100' FOQUATED VALUE FOP MDI STATEMENT 232 ** ADDFESS OF MESSAGE x 
000101 39 @FIXT EOU X¥'0101' EQUATFD VALUE FOP MDI STATEMENT 233 ** saa 
000102 GO @STOP EQU x¥'0102° EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO ** 
000200 41 @GOTO EOU X¥*0200! EQUATED VALUE FOR MDI STATEMENT 23) 3 A) RULE EQUATE X'0200° *% 
000201 42 @CALL EOQU X'0201! EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * * 
000300 43 @INPT FOU X¥'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO ** 
000400 44 @OUXX EOU X¥*'O4008 FOUATED VALUE FOR MDI STATEMENT 230° ** D) ENTPY POINT WITHIN GO TO MAP TO USE ** 
000500 45 aTUxXX EQU X"'05008 FOUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFER ENCE x 
000600 46 ANVLD EQU x'0600' EQUATED VALUE FOR MDI STATEMENT 241 ** xx 
000000 47 EOU x¥*O000! EQUATE FOR 24U2 ** SCALL 2k aK 
000004 48 NE EOU X*'O0004 EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0O201' ** 
000008 49 HT EOU Xx*O0008! EQUATE FOR 244 *x B) ADDPESS OF MESSAGE ek 
90000C 50 NH EOU X'OOOC! EQUATE FOR NOT HIGH 2U5 *x* C) NAME OF MAP TO CALL KX 
000010 51 Lo EQU X%'0010! EQUATE FOR LOW- 2U6 ** D) FNTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EOU x'oo14s EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE *x 
000010 53 LT EOU X¥'0010! EQUATE FOR LESS THAN 2U8 ** eK 
00000C 54 LE EOU x'oo0oc! EQUATE FOR LESS THAN OR EQUAL TO 2U9 ** SINPT #& 
000008 55 GT FOU X¥'0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300° *x 
000014 56 GE EQU X'OOTK! EQUATE FOR GREATER THAN OF EQUAL TO 251 ** B) INPUT TYPE (EBCDIC OR HEX) * 
000200 57 ON EQOU X¥*0200! EQUATE FOR ON | 252 ** C) ADDRESS OF YES LEG RULE x 
| 000202 58 OF EOU X¥'0202" EQUATE FOR OFF | 253 ** D) DESTINATION LOCATION OF INPUT DATA * x 
000204 59 MX EOU X'O020u' EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA ** 
000000 60 EBC EOU X'0000! FOQUATF FOR EBCDIC DATA I PANSFER 255 ** F) LOWER LIMIT OF GOOD DATA % 
000001 61 HEX EQU x'o001!8 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA *% 
000001 62 XTRENL EOU x'ooo1? EQUATE FOR EXTERNAL REFERENCE 257 ** +k 
000000 63 INTRNL EQU x¥'o000! EQUATE FOR INTERNAL REFERENCE 258 ** SQU XX xk 
000000 64 EARM EOU X¥'00008 EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE xX'0O4O00! * 
000001 65 DA EQU Xx'0001' EFOUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE x 
000002 66 EQU x'0002! EQUATE FOR UNIT ADDRESS 261 ** Cc) TU BRANCH TO ADDRESS (INITIAL eK 
000090 67 DUMMY EQU X'O0008 DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) 4k 
001800 69 PID EQU *-xX'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES ek 
000232 70 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FTELD 264 ** F) PARAMETER TO PASS TO TU 4K 
00180C 71 STEPNUM EOU PTD+x'000C! ADDRESS OF DECIMAL STEP NJMBER 265 *x G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAYETER * x 
00180E 72 OPWD1 EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** 4k 
001810 73 OFWD2 EQU PID+X'0010! ADDRESS OF OPTION WOPD TWO 267 ** STU XX * 
001818 74 TUSTATUS FOU PID+X*0018' ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE X'0500! x 
00181A 75 TUWORK EOU PID+X'OO1A! ADDRESS OF TU WORK ARFA 269 ** B) ADDRESS OF YES LEG RULE 4k 
001892 76 TUPARM1 EQU PID+X'OO9A! ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS Fok 
00189C 77 TUEFARM2 EQU PID+x'OO09C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS * 
00189E 78 TUPAPRM3 EOU PID+X'OO9F! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS * x 
0018A0 79 TUPAPM4Y EOU PID+X*OOAO! ADDRESS OF PARM 4& POINTER 273 ** F) MASK FIELD FOR COMPAPE * 
0018A2 80 TUPARMS EOQOU PID+X*OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES ek 
OO18A4 81 TUPARM6 EOU PID+X'OOAY'! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THF TU wk 
001846 82 TUPARM7 EOU PID+X'OOA6! ADDRESS OF PAPM 7 POINTEP 276 ** I) STOPE ADDRESS FOR FIRST 8 WORDS OF PARAYETER #0 
0018A8 83 TUPARM8 EQU PID+X'OOA8? ADDRESS OF PARM 8 POINTER 277 ** * 
OO18AA 84 TUPARM9 EOQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** $NVLD x 
O0O018AC 85 TUEARM10 EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE ECUATE X*'0600! eX 
OO18AE 86 TUPAPM11 EQU PTD+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** tok 
0018B0 87 TUPARM12 EQU PTD+X'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * x 
0018B2 88 TUPARM13 EOU PID+X*"00B2! ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT * 
0018B4 89 TUPARM14 EQU PID+X'OOB4? ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPAPM15 EQU PID+X'OOB6! ADDRESS OF PAPM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * % 
0018B8 91 TUPARM16 EQOU PID+xX*OOB8! ADDPFESS OF PARM 16 POINTER 286 ** kK 
OO18BA 92 TUMSGWER EQOU PID+X*OOBA? ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAMF OF ENTRY POINT *k 
0O018BE 93 TUUA EQU PID+X'OOBE'! ADDRESS OF UNTT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PTD+X*O00CO0? ADDRESS OF DEVICE ADDRESS IN EBC 289 ** *k 
0018C2 95 TUBUFF EQU PID+x*00C2? ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TARLE END IS INDICATED RY A X'0000! * 
0018C4 96 TULAST EQU PID#*xX'oocg! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ar: 
0018C6 97 TURESULN EQU PTD+x"O00C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE * 
0018C8 98 TURESUL EQU PID+X*O0CB* ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * x 
0018FC 99 MAPNAME EOU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: *x 
001948 100 TUINPT EQU PTD+x!0148! ADDRESS OF S$INPT DATA 295 ** * 
00196E 101 FARMARA EQU PTD4+X'016E! ADDRESS OF SINPT INPUT AREA 296 ** A) EQUATE FOR START OF MESSAGE BLOCK * 
0019B8 102 @DCADDI FEQU PID+X'0O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE ok 
0019BA 103 @DCADD2 EQU PID+X'O1RA? MDI POINTER 298 *x C) LENGTH OF FOLLOWING LINE *x 
0019C4 104 SUPSTAT EQU PID+x"'O1C4U! ADDRESS OF MDI STATUS 299 *x* D) FIRST LINE OF MESSAGE * 
0019D0 105 DEVADD FOU PID+X'01D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE *e 
OO19DA 106 DEVADD1 EQU PTD+X'O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SFCOND LINE OF MESSAGE em 
0019 E4 107 DEVADD2 EQU PID+X'O1E4? ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ** 
9019EE 108 DEVADD3 EOQU PID#X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 “ 303 ** * ak 
0019F8 109 DEVADD& EOU PID+X'OF8? ADDRESS OF DEVICE ADDRESS TABLF 4 CLO Me SETS S SLES SSS SSE SP SESS SEES SEL SS SLES SSE SSS SESS SES SECS SS SPSS SE SSS SS SS SETS SSS 
001A02 110 DEVADDS FOU PID+X'0202' ADDRESS OF DEVICE ADDRESS TABLE 5 Cli See LS TSS SS SL SST SSS SLE SS SS SSS SESS SSS SSS STS SSCS SSS SESS SSCS S TE SSCS SSS SSL Sess 
001A0C 111 DEVADD6 EOU PID+X'020C! ADDPESS IF DEVICE ADDPESS TABLE 6 
001A16 112 DEVADD7 Eee eer ADDRESS OF DEVICE ADDRESS TABLE 7 
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17869 --- FORMAT OR WRITE P/N=1635393 EC=755285 PAGE 03 17869 --- FORMAT OR WRITE P/N= 1635393 EC=755285 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
pooece Ra ecEne Bau DEVI ee POR Bee a 658 SII OOO ICO III SIO IOI IOI IR IOI IOI IE SOI IO Ii fo i i iC 
00266A 0000 541+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD Boo as Pea hey ean Oy 
00266C 0000 542+#DCB2 DC h (*-* LAST DCB TABLE, DEV DEP WORD 000002 661 BS2 FOU 7) 
00266E 0000 5434DCB3 DC Rh (*-* LAST DCB TABLE, DEV DEP WORD 000003 662 BS3 0 3 
002670 0000 SUU+DCBG DC Al*-* LAST DCB TABLE, DEV DEP WORD 000005 ees bss) EDU Ok 
002672 0000 545+DCB5 DC A (*-* LAST DCB TABLE, DEV _ DEP WORD 000005 664 BSS EOU 5 
002674 0000 546+DCB6 DC Rh (*-* LAST DCB TABLE, CHAIN ADFS 000006 665 BS6 EOU 6 
002676 0000 S47+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 666 BS7 EQU 7 
002678 0000 5484+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 00000 667 8 EOU 8 
D4o+% - 900009 668 BS9 EOD 
OO267A 5504+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 669 BS10 EOU 10 
00267A 0000 551+CSTL1 DC A (#-* CYCLE STEAL BUFFER, RESIDUAL ADRS 000008 670 BS11 EOU. 11 
00267C 0000 552+CSTL2 DC Rh (¥*—* CYCLE STEAL WD 2, DEVICE DEPEND 00000C 671 BS12 EOU 12 
00267E 0000 553+CSTL3 DC Rh (*— CYCLE STEAL WD 3, DEVICE DEPEND 00000D 672 BS13. EOU. 13 
002680 0000 554+CSTLY DC Rh (*-* CYCLE STEAL WD 4, DEVICE DEPEND 000008 673 BS14 EOU 14 
002682 0000 555+CSTL5 DC A (e—* CYCLE STEAL WD 5, DEVICE DEPEND 00000F 674 BS15 EOD. 15 
002684 0000 556+CSTLE DC A (#-% CYCLE STEAL WD 6, DEVICE DEPEND 676 COPY 17899 
002686 0000 557+CSTL7 DC A (*-* CYCLE STFAL WD 7, DEVICE DEPEND 677 17899 TUIT $SERRS 
002688 0000 peg DC A (*-* CYCLE STEAL WD 8, DFVICE DEPEND 67 84 IO ICG ICICI IG II IG IGOR II RI a IKK) 6 F EBT] 6 ** 
2. * 
00268A 0000 560+S$SUBN DC ae LAST SUBROUTINE ADDRESS USED O4a eanee UNIS 
353685 $ggnorer SesISDAH BE BOSH. CHEEeM Eo? May, negugsteD ake 
+ * T 
002692 0000 5634T0RTN DC A (+ *) TEST UNIT RETURN ADRS TO MDI ebase Ree eo eae es ee a 
002694 0082 564+$DVID DC X"00B2! DEVICE ID 684+* PURPOSE 
002696 19D0 565+SVCAL DC A (DEV ADD) ADRS OF DEVICE ADDPESS 685+ 
002698 0000 2bGt pc A(*-*) IBIS CYLINDER ADDRESS 6864+* THIS ROUTINE WILL FORMAT OR TEST (WP/PD) SELECTED CYLINDER 
56 8+# THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM aa. Ge tNG THE. BARE GT ERS: Cer Eee RR eeetOn eee ae tee 
569+% FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 6894+* CALLING SEQUENCE 
570+% STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 6.904% 
A 691+* 'TUINPUT' FORMAT IS AS FOLLOWS: 
00269A 4020 265A 3C02 572+T3C02 MVWI X'3C02',STUID SET UP TEST UNIT ID 6924+* FORMAT/TEST MULTI-SECTOR CYLINDER HEAD SECTOR 
—— B78 os sunaS oko eS Steg SR nr gst UR SHG. O2e-eYES02 SYED B8-8ee Bo 
228 SPP Re OP Oy CE el eT CET eet Tae eg reg Te eT 695+* 02- ae ASSIGNMENT 80-87 FIXED HEADS 
579 De ) : oaits BRAS OBE ™Enceon ee Me gO= ID TO BE WRITTEN NORMAL 
anoonn a Bite En Ge er gee ee ere ce etn rer ete poate Bae GOOD RULERN ALE pAerOS (CYL1) 01= ID TO BE WRITTEN SKEWED 
000001 982 OUTIN EQU 1 OUTIN SVC 701+% 03> DEFECTIVE ALTERNATE CYL1) 
vc * T 302;HEAD 1;SECTOP 0;FLAG 0;NORMAL 
ae teen & es eee 10ate BA RORHNGS MOyAI“SECOR MODE Er 
000004 585 CHNGE FOU 4 CHANGE LEVEL SVC +0R4% NPuT= F101 sad 
000006 289 EXIT FOU 6 Erie Ste rn ee 105+* IN MULTI-SECTOR MODE,TEST OR FORMAT WILL START WITH THE SELECTED 
BpODOT Se BOG 7 ee 106+% SECTOR AND CONTINUE f0 THE END OF TRACK. 
900009 290 RID. FOU 3 FEAD ID svc) JOB+% PROGRAM PASSES STATUS OP TEST OR FORMAT TO HDI AS FOLLOWS: 
OO000A 561 START FOU 10 START CYCLE STEAL SVC ee ; ND Sa naes aeoe ae 
00000B 592 sTcSS FOU 11 START CYCLE STEAL STATUS SVC 7114+ RETURN CONTROL 
pe ee tee a eee Hass 
~ : * % 
00000E 595 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC Uo be i aera PEE te ena: SU ers 
QOOO00F 296 RSTAT EQU 15 READ STATUS SVC GQ Li Litt r TTC IT rIrLIorreerrerrcreerirrer rrr rrr rere rer rs rer ere rere rer ers 
eee eee eae ae We CU eer ae ora e paeee” 0026A2 6FOD 2692 716477899 MVW  R7,TURTN SAVE RETURN ADDPESS 
ees 2a6 peat ati a A apenas 002646 4020 265A 7899 717+ MVWI Xt7899% , STUID SAVE TU ID FOR DISPLAY 
30045 260 Rien fey 49 Dovel Oe ove eR ipN ENROL HiOGk CVG OO26AC 4424 2654 718+ MVA  OFTN1,R SET UP POINTER ADRS IN R4 
ate coy cren GBH 38 Deen oat sua Con cor Breer ene 0026B0 6£03 3290 7194 BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
0000415 e02 HO” ESU 34 FAL? ALL 70.” 0026B4 32cu 120% DC A (SERS) ERROR ADPS FOP INVALID PPEP 
000016 603 RECSD EQU 22 RECUEST USE OF DCP DISK SVC 
000017 604 REESD EOU 23 RELEASE USE OF DCP DISK SVC Boscce. ease es av: .poeen ee! Se ees 
000018 605 HALT EQU 24 HALT SVC Ta 
000019 606 ETOH EOU 25 EBCDIC TO HEX SVC (STRING) a 430 Be. Say eene PES PRETENSE SEE OF eee 
OOO01A 607 HTOE EQU 26 HEX TO EBCDIC SVC (STRING) 0056C2 1804 75% ink wT78tC JUMP IF NoT 4955 
Sone Poe Aton eoue Se Poon ea to anEs are (Stnine} 9026c4 4020 26D4 254C 121 NVWI X*25UC",T78T1+2 LOAD TIME CONSTANT FOR 2 SEC 
ae ea eomfOn. 40 Bena peCnt Coe ye ier ne 0026CC 4020 26D4 OCOE 729 T7I8TC MVWI X'OCOE', T78T1+2 (4953) LORD TIME CONS FOR 2 SEC 
00001F 612 READI EQU 31 READ DATA SETS FOR MDI/UTIL Noseae aeggo 73, 485 sve. IDLE gee ees 
000020 613 WRITE QU 32 WRITE DATA SETS FOR UTIL 0026D8 BSFE 732 ICT  T785.R0 Mi 
eae ei alata CGR CO eT eee eel RSE Pan eee ale A are eer 0026 DA ucgc 733 TBIR E864 RESET ALT ASSIGNMENT ALPERDY MADE 
o18 Pa UAE RIO SPE A DEIN * 383825 1535 307 gogg «= g(i(itéim «nS TRIE Lesece Tt 
Keooue ean A AAA AARNE ERR RATER EEE EEE EEE PEE EEEE TE 0026F6 4020 3124 0100 7137 MvWI xf0100',SRD+8 SETUP COUNT TO CLEAR READ BUFFER 
Coobes 31 BENGS EOuU | octet rie ceaae 0026EC 4020 3096 0003 738 MVWI 3,CTRO2 INIT RETRY COUNTER 
A000 05 53 feno> Eee 6 9026F2 4020 3098 0003 739 HVWI 3,CTRO3 * 
600004 cya ane 0026F8 4020 3000 2662 740 MVA  SCTID,RSDCBt14 LOAD BUFFER ADDRESS IN RD SECT ID DCB 
AOGbOS ose one 6B O026FE 4020 3030 2DC2 741 MVA  WRBUF,WRDCB+t14 LOAD BUFFER ADDRESS IN WRT DCB 
p08 oe EneEe coe. >a 002704 4020 3050 2EC2 742 MVA  RDBUF,PDDCBt+14 LOAD BUFFER ADDRESS IN READ DCB 
OOOO OR ose PuReE eeu 00270A 6E03 2D68 743 BAL $WBUF,R6E INIT WRITE BUFFER 
Boa0be 623 fOVk ERA og 00270E 4£E03 30FA 744 RTGO2 BAL $RECL, R6 RECALIBRATE 
ORO Re poe aay anu. 002712 32c4 745 DC A (SERRS) ERROR 
Abad: 23 Bit cae 002714 4CA1 746 TTP (R4, ER) INTEPRUPT ERROR? 
Cena Ce eeea ue. 002716 6A00 32c4 747 BON ERR$ YES-LOGOUT ERROR 
ate es) BiGHT Bey Og 00271A 4020 2FF6 OROO 748 MVWI X'OBOO',RSDCB+4 READ SECTOR 6 TO DETERMINE IF SECTOR 
Be ooGk e345 RENE Eee io 002720 4C64 749 TBTS (B4 XB) * IS WRITTEN IN GSD OR SDD FORMAT 
ae ot eeawa ou: A ij 002722 6E03 3102 750 BAL = SRD ID, £6 READ I 
00000 635 TWELV FOU 12 12 Pee ce: aaGe Hey ee “oNeehed) 
AOOCOo ese aneeN eeu. 45 ie 902728 402F 2666 0600 752 CWI X'0600',SCTID+4 SDD FORMAT? 
nBcobe o30 geety eau. 4a Ne 00272E 1801 753 SNE PT401 NO 
Hee Coa stun noe “AE te 002730 4C5E 754 TBTS (R4,B62) SET SDD FLAG 
pty OSC PARe SEEN, ae a6 002732 402B 1948 0200 755 RT4O1 THI X'0200', TUINPT ALT SECTOR ASSIGNMENT MODE? 
000040 CO Seta ean. en san 002738 6A00 298E 756 BON ASMD YES 
oanpaS ono Sakrs BBG oe ae 00273C 4020 3002 0005 157 MVWI X'0005',SKDCB SEEK CONTROL WORD-NO CHAIN 
neodee eqs SNEZS Boo 428 Nee 002742 8828 194A 3004 758 MVW TUINPT+2,SKDCB+2 GET CYLINDER # 
aan cas OWeR COU | 1ODa Sool 002748 8028 194C 300A 159 MVB TUINPT+4 ,SKDCB+8 GET HEAD # 
NObeOR CIES anGe nee. one es OO274F 6E03 30F2 760 RT4O7 BAL SSEEK ,P6" SEEK 
ites ie anon, Eee a0a5 ante 002752 32c4 761 DC A (SEPRS) ERROR 
Heys ede Faber Beg Baas Foose 902754 4CAt 7162 TBTR  (P4 EF) INTERRUPT ERROR? 
erreere eae us Bena ae 902756 6A00 32c4 763 BON ERRS YES-LOGOUT ERROR 
Eee ree eSy On = 00275A 402B 1948 0100 764 THI X'0100',TUINPT FORMAT? 
feoeee eG as eon oe ae 002760 6A00 2874 765 BON PT416 YES 
PeEPEC $51 Cheat Ueaas! <3 GB3768 B95 438B 307 FSG PROS ED TEETER NCTE Te eee ECE OCB Een arnus one 
nek: ofoeere HRCA HR KK ae A A He ee of he he afc he he af 3h ae fe he ae ae ee ae oe ek ae oe ie oe oe ea ee ak ie I eae ke ok ake Se a Pa 00276E 8028 307F 2FF6 768 MVB pi¥set i oRspcreg LOAD DCB WITH PHY SECT# 
655 * THE FOLLOWING ARE EQUATES FOP BIT DISPLACEMENTS FROM THE * aeeioe) Seen 759 De. A (SERRS) EPROR 
656 + BEGINNING OF THE PYTE TO EACH BIT IN THE WORD OF SWITCHES. ’ 009774. BCKI 174 TET (RU ER) INTERRUPT ERROR 
00277C 6A00 2D06 772 BON PRS1 YES 
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I7869 --- FORMAT OR WRITE P/N= 1635393 EC=755285 PAGE 07 17869 --- FORMAT OR WRITE P/N=1635393 EC=755285 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
Nea : B (TT304+42) 1oist? THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
+ 
1461 9 We He fe He oh ae he aie kK he he he he 3 ae he fe he ae ah ake ake ah ae he abe fc he he eke oe he he ah af ake oft ah afc ae ax he ae She ae afc afc 2h ae 2c af afc 2k Hc ofc ee ok hc he 2 ake he i oe 15764+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
1462 * 1577+ THE I/O COMMAND. 
0030B0 6R8OD 30F0 1463 CONVT HVW R6,TT3044+2 SETUP RETURN ADDR 1578+4+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
0030B4 802B 3072 307D 1464 CB ZEROO , LGSEC+#1 CK FOR LOG # ZERO 1579+ ISSUED BY THIS SUBROUTINE. 
OO30BA 100D 1465 JE TT303° BCH IF LOG # IS ZERO 1580+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
0030BC 802B 307D 3080 1466 CB LGSEC+1,CB29 COME LOG TO 29 15814+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
0030C2 1Cc0D 1407 JGE RTTO1 BCH IF LGSEC EQ. OR LESS THAN CB29 1582+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTEFRUPT 
0030C4 4024 0002 1468 MVWI 2,R0 SETUP MULTIPLI 1583+ SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
0030C8 £§E821 307D 1469 MB LGSEC+1,R0 LOG SECTOR # TIRES 2 1584+* MYSTERY INTERRUPT jf), CONTROL BIT IS SET. 
0030CC 7802 003Cc 1470 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 1585+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL BLOCK IN P7 ser THE 
0030D0 C028 307F 1471 MVB RO, PHYSC+1 PHYSICAL SECTOR NUMBER 1586+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'Své TART!, 
0030D4 500C 1472 J TT304 RETURN TO CAL 1587+ 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/0 COMHAND, TIMING 
0030D6 8028 3082 307F 1473 T7303 MVB FIVES , PHYSC+#1 PHYSICAL SECTOR # 59 1588+ STARTS TO DETERMINE A LOST INTERRUPT. 
0030DC 5008 1474 J TT304 RETURN TO CALLEP 1589+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF If 
OO30DE 4024 0002 1475 RTTO1 MVWI 2,R0 LOAD HULTIPLIER 1590+* WAS AN FRROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
003082 #821 307D 1476 MB LGSEC+1,R0 LOG SECTOR # TIMES 2 15914+% 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
0O030E6 7802 0001 1477 SWI 1,80 SUBTRACT 1592+ 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
OO30FA C028 307F 1478 MVB RO, PHYSC+1 LOAD PHYSICAL SECTOR # 1593+ 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
OOZ30FE 6802 0000 1479 TT304 RB x — & RETURN TO CALLER 15944 11. CHECK TO SEE IF THE EXEPCISER IS TO BE TERMINATED. 
1480 * 1595+ 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
1482 * 1596+* ISSUED BY THIS SUBROUTINE. 
1483 * EXECUTE INPUT & OUTPUT COMMANDS 1597+ 13. CHECK THE ISB BITS THAT ARE OW. IF BIT O IS ON, ISSUE A 
1484 * TO EXECUTE ALL T¢0 COMMANDS FROM A COMMON PLACE. 1598+* CYCLE STEAL STATUS COMMAND. CHECK FOF ANY OTHER BIT BEING ON, 
1485 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PAPA METER 1599+ COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
1486 * TIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 1600+ 
1487 , SUPVR CALL. jcolts CALLING SEQUENCE 
1689 : THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 1ega+s THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
« + 
1491 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 16054+* -=-> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1492 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 1606+* --> BAL XIO1 MOD PARM PRELOADED IN 'IOMOD!® 
1493 * 1607+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 
g 1494 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1608+* --=> BAL XTOCS—4 ,P6 AUTO CS STATUS (FOLLOWING OTHER XIO 
1495 * é 1609+ a AND DOES NOT POST INTERRUPT STATUS) 
1496 * 1 BAL SRKEW, R6 READ SECTOR ID SKEWED 1610+* 
1497 * a 16114+* RETURN CONTROL 
1498 * 2 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 1612+%* 
1499 * ; 1613+* BXS B6 2) RETUPN TO USER NO ERROR 
1500 * 3 BAL SWSEC,R6 WRITE SECTOR ID 16144 B R6{ * RETURN AND RETRY ON ERROP 
1501 * < . VOLS FRR RIKKI KKK IK He AK af Me He He ic Me ee ahe afc 3 she He fe ae se ae ee ake cafe he he ae she he he oe he hc ah ae ah ae afe he ae she ake ake afc ae abe afc he afc he afc fe fe hc 
1502 * 4 BAL SDIAG,R6 DIAGNOSTIC 00317E CB25 3282 1617+X1I0 MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 
1503 * fe 003182 5SOOA 1619+ J XIo1 CS I/O'S ARE NOT RETRIED 
1504 * 5 BAL XTOCS,R6 CYCLE STEAL STATUS 16194 
1505 * " 003184 4CAA 1620+ TBTR Ri, cE RESET CS STATUS INTER ERROP INDICAT. 
1506 * 6 BAL SSEEK,R6 SEEK 003186 4cC68 1621+ TBTS SET "CYCLE STEAL STATUS!' IN PROGRESS 
1507 * B 003188 4020 3280 3012 1622+XIOCS MVA SDeE, ODCB SET UP CONTPOL PLOCK FOR SVC CALL 
1508 * 7 BAL FRECL,R6 RECALIRRATE 00318E 4020 3282 OOOF 1623+ MVWI x? 900 Eyruonee SET CYCLE STEAL MODIFIER 
1509 * i 003194 4c28 1624+ TBT fB4 gC IS CS IN PROGRESS, ERROR CONDITION 
1510 * & BAL SRDID,R6 READ SECTOR ID 003196 1213 1625+ JON To} * YES, BYPASS SAVING I/O ADRS 
1511 * 003198 6E0D 2660 1626+XI0O1 MVW R6, LSTIO SAVE TAR FOR RETRY IF REQUESTED 
1512 * 9 BAL $RD,F6 READ 00319C 4324 266A 1627+ MVA pchur,R3 SET UP TO ADRS TO MOVE DCB TABLE 
1513 * . 0031A0 6D08 3280 1628+ MVW ITODCB, * AND THE FPOM ADRS, ALONG WITH 
1514 * 10 BAL SEDVY,R6 PEAD VERIFY 0031A4 OF10 1629+ MVBI 16,27. * THE NUMBER OF MOVES 
1515 * e 0031A6 2D64 1630+ MVFN SRB) R3) MOVE 1 STATUS WORD AND ADJUST 
1516 * 11. BAL EWRT,RG WRITE 0031A8 OBFF 1631+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
1517 * OO31AA 4524 267A 1632+ MVA CSBOF,RS * TO ALL ONES * 
1518 * OO31AE OF10 1633+ MVBI 16,R7 * 
OO30F2 4020 3002 1519 SSEEK MVA SKDCB,IODCB SET UP CONTROL BLOCK FOR 3 VC CALL 0031B0 2BAC 1634+ FFN R3 SF * 
0030F8 5042 1520 J XIO 0031B2 4020 265c 1635+ MVWI x'6708',$IOIN OVERLAY OLD CONDITION CODES 
1521 * 003188 CB25 2655 1€36+ MVWZ SISB, ZERO OUT OLD ISB VALUE 
OO30FA 4020 2FD2 1522 SRECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 1637+ 
003100 503E 1523 J XIO 0031BC 4CA1 1638+ TBTR R4,ER RESET ANY ERROP BEFORE I/0 COMMAND 
1524 * OO31BF 4CA3 16394+XI02 TBTR R4YU,T CLEAP INTERRUPT RECEIVED CNTL BIT 
003102 4020 2FF2 1525 SRDID MVA RSOCE, IODCP SET UP BLOCK FOR SVC CALL 0031C0 4724 327C 1640+ MVA OBLK SET UP CONTROL BLOCK FOR SUPVR 
003108 OBFF 1526 MVBI XtFF!,R3 SET BUFFER TO F'S 0031C4 UCAS 1641+ TBTR R4,$ RESET LFVEL ERROR INDICATOR 
OO310A 4524 1527 NVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADPS 0031C6 4C62 1642+ TBTS RY .X SET EXPECTED INTR CONTROL BIT 
00310R 4724 1528 MVWI 6,R7 SETUP BUFFER LENGTH 0031C8 600A 1643+ SVC TART CALL SUPVR FOR I/O COMMAND 
003112 2BAC 1529 FFN R3 (B5) INTT READ SECTOR ID BUFFER 16404+* 
003114 4020 2662 1530 MVA SCT D,RSDCB+14 DATA ADDR 0031CA 4CAT7 1645+ TBTR R4,NTI) IS AN INTR EXPECTED 
00311A 5031 ieat : J XIO 0031CC 6ACO 0002 Veuss | BN R6,2) * NO, RETURN TO USER 
: + 
00311C OBFF 1533 SRD MVBI X'FFt,R3 SETRD BUFFER TO ALL F's 1548+ THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEX? SECTION 
OO3J11E 6D08 1534 MVW RDDCB+14,R5 SET UP READ BUFFER ADRS 1649+ 
003122 4724 4535 MVWI X'0100',87 SET UP BUFFER LENGTH 0031D0 ODO0O 1650+ MVBI 00% SET UP WORK REG FOR 'LOST INTR!# 
003126 2BAC 1536 FFN R3 & CLEAR READ EUFFER 0031D2 4CcCA3 1651+X TBTR (Ra thy HAS INTERRUPT BEEN RECEIVED 
003128 4020 3042 1537 SRDS MVA RDD EB, LODCB SFT UP BLOCK FOR SVC CALL 0031D4 1238 1652+ JON TOcK * YES, CHECK IF ALL WAS SATISFACTORY 
00312E 5027 1538 J XTO 0031D6 6002 1653+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
1539 * 16544* SUPVR WILL RETURN HERE 
003130 4020 3032 1540 $RDVY MVA VRDCB,IODCB SFT UP CONTROL BLOCK FOR SVC CALL 0031D8 7DA1 0001 1655+ AWI 1,25 ADVANCE TIME OUT COUNT 
003136 5023 1541 J XIO 0031DC 18FA 1656+ JNZ xfo8 BCH IF TIME OUT NOT REACHED 
1542 * 0O031DE 4Cc461 1657+ TBTS RY ER) SET ON ERROR CONTROL BIT 
003138 4020 3022 1543 SWRT MVA WRDCE,IODCB SET UP CONTROL BLOCK FOP SVC CALL 0031E0 68D2 0000 1658+ B R6 ERR 'NO INTERRUPT! 
00313E 5SO01F Iie J XIO 186 ees saad nracrssdi aoc accra coco GEn Hac ora 4d 4 0 3PEB 764 
* 1661+% 
003140 4020 3280 3062 1546 S$RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 1662+* SUBROUTINE 
003146 OBFF 1547 ~  MVBI X'FF',R3 SET BUFFER TO FtS 1663+* 
003148 4524 2662 1548 MVA SCTID,R5 SETUP RFAD SECTOR ID BUFFFR ADPS 16644* I/O EXECUTE ERROR FANDLING ROUTINE 
00314C 4724 0006 1549 MV WI SFTUP BUFFER LENGTH 1665+* 
003150 2BAC 1550 FEN R3 {85} INIT READ SECTOR ID BUFFEP 1666+* FURPOSE 
003152 4020 3070 2662 1551 MVA SCID, RKDCB+14 DATA ADDR 16674% 
003158 5012 1552 J XIO 1668+* THIS FOUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
1553 * 1669+* PROBLEM THAT WAS FOUND WHEN THE 1/0 COMMAND WAS ISSUED BY THE 
00315A 4020 3280 3052 1554 SWKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1670+%* SUPERVISOR AND IT WAS NOT ACCEPTED. 
003160 4020 3060 3084 1555 MVA WRSID, PWKDCB+14 DATA ADDR 1671+%* 
003166 500B 1228 : J XTO ae CALLING SEQUENCE 
+ 
003168 4020 3280 2FE2 1558 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 16744+% SUPVR WILL ENTEP WHEN AN ERROR OCCURS ON AN 1/0 COMMAND 
00316E 4020 2FFO 3084 1559 MVA WRSID,WSDCB+14 DATA ADDP 16754+% 
003174 5004 1380 : J XIO eae RETURN CONTROL 
+ 
003176 4020 3280 2Fc2 1562 SDIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1678+* B (R6) * RETURN TO USERS ERROR HANDLER 
00317C 5000 1563 J XIO 16794 
1564 xeQtr 16 BO HH HR He He Re he Be eH Hee ee he he he He ae ee he he ee he eee ee oh ee i He ae he ae ai 2h he hc ac oe ae a of afc ae a ae a ae 2k oie ik of fe af afk ake ok ok 
15 654 2 a Ro COR Oo do ci io ic iioioiok dak kolo ek ok iodo iokcakdck tek do tok kek 29 JL 76 16814 
1566+* 1682+* CC = DEVICE NOT ATTACHED 
1567+* SUB-ROUTINE 1683+* FOR 1= DEVICE BUSY 
1568+ 1684+* T/0 2= DEVICE BUSY AFTER RESET 
1569+* EXECUTE INPUT AND OUTPUT COMMANDS 1685+4+% 3= COMMAND REJECT 
1570+% 1686+* 4= INTERVENTION REQUIRED 
1571+* PURPOSE 1687+* S= INTERFACE DATA CHECK 
1572+ 1688+* 6= CONTROLLER BUSY 
1573+% TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1689+ 7= I/O COMMAND EXCEPTED 
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1690+ 00325C 4c21 1807+XIOCV TBT fE4e ER) WAS ERROR INTR CONTROL BIT ON 
ELEC METTS 1634+ KIOER chy 13 BS SOSTTEON CO CODE TO BITS. 13-45 eee ae 1809++ pole ia econ ee aca 
+ ITION OD RB - 
O0O0O31E8 C328 265Cc 1693+ HVB R3-S$TOIN * PUT IN LOG OUT AREA 003260 C520 265D 1810+ MVB Soe RS GET LAST INTFR CC CODE 
0031EC 68D2 0000 16904 (BG) * RETURN TO USER EPROR HANDLER 003264 F502 1811+ CBT IS THIS CC=2 
16 DG + OK Hk PUEDEN SEASPRESLNSERSAAES SE EEE SNALE REESE SET ET SE TCAE EOFS 003266 68D1 0000 1812+ BNE (f6) * * NO, BCH TO ERROR HANDLER 
16974* TL 003268 C520 2658 1813+XIOCO MVB R5 Get LAST ISB DATA BYTE AND IF CS 
16984+* SUB-ROUTINE TL 00326E 6A00 3184 1814+ BN rock. Tt * AVAILABLE, GO AND GET IT 
16994% IL 003272 68D2 0000 1815+ B (R6) * ERROR 
1700+* ERROR INTERRUPT RUNS ON INTERPUPT LEVEL '*$INTLt IL 003276 CB25 2658 1816+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
1701+ TL 00327A 5601 1817+ BXS  (R6,2§ PETURN TO USER VIA REG 6 
1702+* PURPOSE TE 1818+* 
170 3+% IL 1819+ r/o PARAMETER LIST 
1704+% THIS POUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 1820+%* 
1705+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE Ti 00327C 19D0 1821+ITOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
1706+* EXPECTED CODE. IL 00327E 3184 1822+ DC A (XIOER) ERROR ROUTINE ADRS 
1707+% TL 003280 0000 1823+IODCB DC A (#-% DCB ADRS OR LEVEL & INTR 
1708+* CALLING SEQUENCE TL 003282 0000 1824+IOMOD DC A (*¥-* MODIFIER 
1709+ IL 003284 0000 1825+ DC A (*-* ADRS OF LAST SVC CALL 
es SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT TL 003286 0000 sce DC A (*¥-* SECOND WORD OF LAST IDCB 
+ TL 
last RETURN CONTROL TL es INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+%* Bie 
1714+% SVC EXTT RETURN TO USER VIA SUPVR TL 003288 19D0 1830+INTBL DC A (DEVADD) ADPFS OF DEVICE ADRS 
1715+ IL 00328A 3214 1831+ DC A (INTOK INTERRUPT OK RETURN ADRS 
1716 4+ 2 RIOR IO IG I iki ak ioko iio ie dckako ak oto icdoie ak i kai sk dk kok tak ies kkotook at tok TL 00328C 31F0 1832+ DC A (INTER INTERRUPT ERROR ADRS 
1717+% IL 00328E 0003 1833+INTCC DC X'00038 INTEPRUPT CODE EXPECTED 
1718+* CC O= CONTROLLER END TSP O= ADD STATUS TL 1 BSH HHH HH HH He He HH He He HEH He ee fe he ee ee ee i ee eK A eae i i oe eK OK 2h oo ke eo aK ek HK TIM AY 76 
1719+* FOR 1= PROGRAM CONTROL INTERRUPT BITS = COMD PEJECT TL 1836+* 
1720+* INTP 2= EXCEPTION INTERRUPT FOP 2= INCOR LENGTH IL 1837+* SUBROUTINE 
1721+% 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 1838+* 
1722+% “= ATTENTION INTERRUPT W= STG DATA CK IL 1839+* CONNECT INTERRUPT CONTROL RLOCK §& PREPARE DEVICE 
1723+% 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 1840+* 
1724+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK TL 1841+* PURPOSE 
1725+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 1842+4% 
1726+% TL 1843+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0031F0 T06E I727+INTER DC X'7O6E? COEY STATUS ANY LEVEL INTO R3 TL 1844+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 
0031F2 336A 1728+ SRL 13,R3 POSITION INDICATORS IN R3 TT 1845+* TO INTERRUPT. 
0031F4 44246 2654 17294 MVA OPtN1,R4 SFT UP BASF ADRS TL 1846+* 
0031F8 4¢28 1730+ TBT {Fa c$) IS CS IN PROGRESS TY 1847+* CALLING SEQUENCE 
O0O31FA 1006 17314 JOFF iNntTE£S * NO IL 1848+% 
0031FC 4C6A 1732+ TBTS (RY CE) TURN ON CYCLE STEAL INTER EPPOR TL 1849+% THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
QOO31FE 6FOD 2688 1733+ MVW P7,¢STL8 SAVE CS ERR ISB VALUE, BIIS 0-7 TL 1850+* 
003202 C328 2689 1734+ MVB R3,CSTL8+1 * AND THE COND CODE ann 1851+* --> BAL SCONC,R6 CLEAP DEV DEP STG AND CONNECT I/O BLK 
003206 SOOA 1735+ 3 INTE 1 IL 1852+* --> BAL COND, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 
003208 4c24 1736+INTES TBT ABA XB) TEST EXPECTED ATTEN / ERPOR TND TL 1853+* 
00320A 1002 1737+ JOFF NTET BCH IF NOT EXPECTED IL 1854+* RETURN CONTROL 
00320C F304 1738+ ‘CBI ueR3 TS THIS AN "ATTENTION! INTPR Tl; 1855+* 
00320E 1006 1739+ JE INTR1 * YES, BCH TO END INTR SEQUENCE TL 1856+* BXS R6 RETURN TO USER VIA REG 6 IF OKAY 
eval acel VHOFINTET TBTS {R4 ,ER) SET FRROR ON I/O COMMAND CNTL BIT IL es OR 8B Rese IF THE DEVICE COULD NOT BE CONNECTED 
+ 
1742+ T THE Bene THTEFROGT USES THE SAME y 1B SO eM HK He He He eRe a oe ee oe a a Re Re 2 he he ae af ae ae 2 fe i fc 2 ae ie fe Re oe cae oe a ic aC ae afc fe cf akc fc ae fe fe fe aie oie 2c ate ate afc ate ak fe akc of 
17434* ENDING SEQUENCE AS THE NORMAL INTR IL 003290 OFO06 1860+$CONC MVBI 6,87 NUMBER OF BYTE TO CLEAR 
1705 + 3 OCC OG I oR I  iafoiciiaioiok lok oko ditetek kok toto tok TUADRT6TL 003292 0OB00 1867+ MVBI 0O,R3 * AND THE DATA TO USE 
1746+% IL 003294 4524 2662 1862+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
174 74* SOUBROUTINE TL 003298 2BAC 1863+ FFN &3 (R5) * 
1748+* 11 00329A CB25 2658 1864+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
17494 OKAY INTERRUPT RUNS ON INTERRUPT LEVEL 'SINTL! xO 00329E 4724 3288 1865+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
1750+% IL 00O32A2 6014 1866+ SVC CICB * CONNECT IT TO THIS DEVICE 
17b1+s PURPOSE TL: 0032A4 6AD0 0000 ie BN (R6) * ERROR RETURN TO USER 
‘ IL 
1753+4+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST TL 0032A8 8828 2690 3280 1869+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
17544 IL OO32AE 4724 327C 1870+ MVA IOBLK ,P7 SET P7 TO CONTROL BLOCK TO PREPARE 
1755+* CALLING SEQUENCE Il 0032B2 4020 265c 0708 1871+ MVWI X'O706', SIOIN INITIALIZE CONDITION CODE STORAGE 
1756+* IL 0032B8 CB25 265E 1872+ MVWZ SISB,R3 * AND CLEAR OLD ISB VALUE 
: 1757+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 0032BC 6E0D 2660 1873+ MVW R6,1$TIO SET UP ADDRESS THAT STARTED LAST I/0 
17584+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 0032C0 600C 1874+ SVC PREP * AND CALL ON SUPVR 
1759+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 0032C2 5601 1875+ X (R6 , 2) RETURN TO USER 
1760+* COMMON SECTION IS HANDLED HERE. TL AGT TES AeR CAR ERE eR CAT thee TEP eS ED EMSS USES UMW STATES NES SEE EEOEAOCRURIONS 
1761+* TL + 
Vyeere RETURN CONTROL IL es SUBROUTINE 
+ TL 
Viele SVC EXIT RETUPN TO USER VIA SUPVR IL eb DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
ACE he aeenitT +o te eee RRnne eee neta eee trent etete rere ore nennee! 1883+* PURPOSE 
003214 7068 1767+INTOK DC X*706E! COPY STATUS ANY LEVEL INTO P3 TL 1884+* 
003216 336A 1768+ SRL 13,R3 POSITION INDICATORS IN R3 IL 1885+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003218 44&24 2654 1769+ MVA OPfN1 ,R4Y SET UP BASE AD TL 1886+* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
00321C 4C63 1770+INTR1 TBTS R4,IN SET IHTERROPT™ RECBIVED 1, 1887+%* BEEN FOUND TO HELP THE OPERATOR DEFINE THE EPROP CONDITION. 
00321E 4¢c28 1771+ TBRT R4Y,CS IS 'CS IN PROGRESS! ON IL 1888+* 
003220 1204 1772+ JON NTR? * YES, BCH AROUND UPDATE TY 1889+* CALLING SEQUENCE 
003222 C328 265D 1773+ MVB R3,SIOIN+1 SAVE SNTERRUPTING CC CODE TI, 1890+* 
003226 6FOD 265E 1774+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS ne 8 1891+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
00322A 1775+ INTR2 EQU * TL 1892+* 
1776+* CPCL RS CURRENT LEVEL COPIED BY DCP IL 1893+* --> B SERRS SET 'NG*t BIT AND CONVERT )JATA TO LOG 
00322k a2e. as SLL 4 RS POSITEON TNIR LEVEL AND PUT TL soGES --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
00322E CD24 2690 1779+ CW SINTL,R5 IS THIS THE CORRECT INTR LEVEL TL 18964* RETURN CONTROL 
003232 1002 1780+ JE INTR3 * YES, GO EXIT THIS LEVEL TL 1897+ 
003234 4C66 1781+ TBTS R4Y,$LE) SET IffR LEVEL ERROR CONTROL BIT IL 1898+* B TURTN* RETURN TO MDI 
003236 4cé61 1782+ TBTS (R4,ER SET FRROR ON I/O COMMAND CNTL BIT IL 1899+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003238 4CA2 17834INTR3 TBTE RY ,XI WAS INTERRUPT EXPECTED IL 1900+* 
00323A 1204 1784+ JON wrex * YES, EXIT OFF THIS INTR LEVEL TL YO 1 I HK Fe Re oe ek RR iO I IOI ak ka moka kk aR OR I Ik IOI i OK ak te kak ak ok ake ak akc ak akc a 
00323C 4c60 1785+ TBTS fF MI) * NO, SET MYSTERY INTR CONTROL BIT TL 0032C4 4020 1818 8000 1902+SERRS MVWI X'*8000* ,TUSTATUS SET ON "NO GOOD! STATUS RIT 
00323E F304 1786+ CBI »R3 ATTENTION INTERRUPT? IL OO32CA 4724 342E 1903+ MVA HEBLK,R? GET ADFS OF CONTROL BLOCK 
003240 1001 1787+ JE INTRX YES IL 0032CE 601A 1904+ SVC stZee CONVERT HEX TO EBC VIS DCP 
003242 4cé6C 1788+ TBTS (Rd NG) ERROR, UNEXPECTED INTERPU TL 0032D0 0D03 1905+SPRNT MVBT 
003244 6006 17894 INTRX SVC Xrt EXIT THIS LEVEL VIA SUPVR TO PGM TL 0O032D2 4324 181A 1906+ MVA aNGrs R3 SET UP BUFFER STORAGE 
17914 HR RK ROR RIOR RR OI I I RIO Ro Rokk tk 4K BF EBT 6 #e 0032D6 6BOD 3426 1907+ MVW BUFET 
1792+* 0032DA 4124 3356 19084 MVA rite 
1793+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 0032DE OFO4 1909+ MVBI WRT 
1794+ HAS BEEN SERVICE THE EXERCISEP FINDS AN INTERRUPT HAS BEEN Q0032EO0 OQEFO8 1910+ MVBI 8,R6 
1795+* PECETVED AND BRANCHES BERE TO CHECK FOR ANY ERROR CONDITIONS. Q032E2 2B24 19114+MVBUF MVFN (R3) - (R1) 
1796+* 0032E4 OFOY 1912+ MVBI 4,R 
1797+* 0032E6 OA4O 1913+ MVBI xfuot_R2 
003246 4CA4 1798+XIOCK TBTR (R4,XE) WAS AN FRROR EXPECTED 0032E8 C258 1914+ MVB  -R2, (Ri) + 
003248 6ACO 0002 17994 BN R642) * YES, EXIT THIS ROUTINE 0032EA BEFB 1945+ JcT mMVBUF,R6 
00324C 4CA8 1800+ TBTR (R4,CS) WAS AGtvo CS IN PROGRES Q032EC OF08 1916+ MVBI 8,R6 
00324E 1006 1801+ JOFF Tov NO, CONTINUE CHECKING OO32EE 7921 002C 1917+ AWI uh R41 
003250 4C2A 1802+ TBT Aue CE) Is cé IN AN ERR CONDITION 0032F2 BDF? 1918+ Jct MVBUF,RS 
003252 1002 1803+ JOFF Too * NO, BCH 0032F4 4020 1802 FIFO 1919+ MVWI PIDMSG10 PID+2 
003254 68D2 0000 1804+ B R6) * cs EKROR OO32FA 4020 19B8 342c 1920+ MVA FAKETU,@DCADD1 
003258 4cé9 1805+XIOCO TBTS RY, CSA) TURN ON CS STATS AVAIL FLAG 003300 4020 19BA 3428 1921+ MVA DC2PT , ODCADD2 
00325A 5601 1806+ BXS P6,2) GO TO USEP 003306 402C 19C4 0080 1922+ OWL BIT0080, SUPSTAT 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-~REFERENCE LISTING COPYRIGHT IBM [ORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
0 RO. ABSOLUTE. HEX VALUE(00000000 2121. 2239 
724 #725 730 F4S 1224 ) 4207 1228 1232 1233 2403 $SDDA ADDRESS. HEX LOCATION(00003A34) IN CSECT(I7869 ) LENGTH(4) 
1234 1235 1241 1468 1469 1470 1471 #1475 1476 2386 2388 
4477 14678 2159 2169 2396 $SDDB ADDRESS. HEX LOCATION(00003A1C) IN CSECT(I7869 ) LENGTH(4) 
0 R1. ABSOLUTE. HEX YALUE (0000000 1) 
1229 1231 1232 1238 1239 $1240 1241 #1908 1911 2398 SSDDE ADDRESS. HEX LOCATION(00003A22) IN CSECT(1I7869 ) LENGTH (2) 
1914 1917 2161 2166 2310 2319 2320 2321 2389 2395 
2390 2391 2392 2394 2396 2397 2398 2399 1519 $SEEK ADDRESS. HEX LOCATION(000030F2) IN CSECT (I7869 LENGTH (6) 
0 Ros ABSOLUTE, HEX VALUE (00000002) 760 907 921 930 999 1061 2028 2050 2175 
1202. 1203 1225 1233 1240 1913 1914 1994 2137 2290 2364 
2138 2311 42313 2319 2357 2358 2401 2402 531 $TUID ADDRESS. HEX LOCATION(0000265A) IN CSECT(I7869 ) LENGTH(2) 
0 mo ABSOLUTE. HEX VALUE (00000003) 972 717° 1923 +19 1989 
1157 1160 1178 #11817 1420 1422 1526 1529 1533 1200 SWBUF ADDRESS. HEX LOCATION(00002D68) IN CSECT(I7869 ) LENGTH(1) 
1536 1547 1550 1617 1627 1630 1631 1634 1636 743 
1692 1693 1728 1734 1738 1768 1773 «#1786 «1816 1554 SWKEW ADDRESS. HEX LOCATION(0000315A) IN CSECT(I7869 ) LENGTH(6) 
1861 1863 1864 1872 1906 1907 1911 1923 2142 874 1042 
2153 1155 $WRET ADDRESS. HEX LOCATION(00002D02) IN CSECT(I7869 ) LENGTH (4) 
0 oR4. ABSOLUTE. HEX VALUE (00009004) 1125 
718 #733 #734  #=735 #=746 #749 #29754 #2762 #27771 1543 $WRT ADDRESS. HEX LOCATION(00003138) IN CSECT(I7869 ) LENGTH (6) 
806 810 821 844 848 860 876 #£=880 £909 1069 1137 
917 923 927 932 940 959 #4965 #983 #2997 1558 $WSEC ADDRESS. HEX LOCATION (00003168) IN CSECT(I7869 ) LENGTH(6) 
1001 1008 1012 1015 1017 1026 1029 1031 1034 804 842 981 1 
1037 1040 1044 1049 1051 #1053 #1057 #=1063 #1071 102 @DCADD1 ADDRESS. HEX LOCATION(000019B8) IN CSECT (17869 ) LENGTH (1) 
1075 1139 1143 1153 1166 1169 1171 #1222 1620 1920 
1621 1624 1638 1639 1641 1642 1645 1651 41657 103 @DCADD2 ADDRESS. HEX LOCATION(000019BA) IN CSECT(I7869 ) LENGTH(1) 
1729 1730 1732 1736 1740 1769 «#1770 «#1771 +=«21781 1921 
1782 1783 1785 1788 1798 1800 1802 1805 1807 39 OF IXT ABSOLUTE. HEX VALUE (00000101) \ 
1990 2003 2007 2010 2015 2018 2030 2052 2058 378 
2067 2071 2074 2076 2080 2102 2105 2107 2123 41 aGOTO ABSOLUTE, HEX VALUE (00000200) 
2132 2143 2149 2154 2177 2180 2198 2201 2216 360 397 =417 
2219 2221 2224 2226 2241 2260 2263 2265 2269 43 @INPT ABSOLUTE. HEX VALUE (00000300) 
2272 2275 2278 2331 2334 2342 2345 2347 2351 387 
2368 2371 £=2387 4A ONVLD ABSOLUTE. HEX VALUE (00000600) 
0 oR5. ABSOLUTE. HEX VALUE (90000005) 4415 
1158 1160 1179 1187 1421 1422 1527 1529 1534 38 @QUES ABSOLUTE. HEX VALUE (00000100) 
1536 1548 1550 1628 1630 1632 1634 1650 1655 357 3&1 
Nie 1778 1779 1810 1811 1813 1862 1863 1905 40 @STOP peper res HEX VALUE (00000102) 
0 ~R6. ABSOLUTE. HEX VALUE (00000006) 45 OTUXX ABSOLUTE, HEX VALUE (00000500) 
719 743, 744 #2750 760 767 #21769 #291783 #42798 366 403 
799 804 #808 812 °&# 836 837 842 °&846 850 903 ASMD ADDRESS. HEX LOCATION (0000298E) IN CSECT(I7869 ) LENGTH (6) 
874 878 882 907 915 921 925 930 935 756 
938 935 957 981 995 999 1007 1013 1027 1089 ASMDA ADDRESS. HEX LOCATION (00002C08) IN CSECT(I7869 ) LENGTH (4) 
1032 1038 1042 1047 1055 1061 1069 1073 1125 1052 
1137 1141 1157 1163 1167 #41172 #1207 «21221 += «1423 954 ASMDD ADDRESS. HEX LOCATION (00002A58) IN CSECT(I7869 ) LENGTH (6) 
1424 1463 1626 1646 1658 1694 1799 1804 1806 918 928 
1812 1815 1817 1867 1873 1875 1910 1915 1916 993 ASMDF ADDRESS. HEX LOCATION(QOOO2AFO) IN CSECT(I7869 ) LENGTH(6) 
1991 2005 2011 2016 2020 2028 2050 2055 2059 970 
2072 2077 2103 2121 2175 2178 2182 2193 21499 971 ASMDI ADDRESS. HEX LOCATION (O0002AA0) IN CSECT(I7869 ) LENGTH (6) 
2203 2211 2213 2217 2222 2239 2261 2266 2276 962 96 
2281 2283 2290 2309 2322 2327 2328 2332 2343 955 ASMDR ADDRESS. HEX LOCATION(QOOO2A5E) IN CSECT(I7869 ) LENGTH (4) 
0 aR7< ABSOLUTE. HEX VALUE (00000007) 976 ASMD2 ADDRESS. HEX LOCATION (OQOOO2KA8) IN CSECT (17869 ) LENGTH (6) 
573 716 722 1081 1085 1089 1159 1180 1201 943 
1204 1419 1528 1535 15849 1629 1633 1640 £1733 948 ASMD3 ADDRESS. HEX LOCATION (O0002A40) IN CSECT (17869 ) LENGTH (6) 
1774 1860 1865 1870 1903 1909 1912 1924 1927 945 
1988 2146 2155 2157 2162 2167 935 ASMD4 ADDRESS. HEX LOCATION(O0002A0C) IN CSECT(I7869 ) LENGTH(4) 
2247 $$E ADDRESS, HEX LOCATION (00003824) IN CSECT(I7869 ) LENGTH (6) 947 
2111. 2115 2119 2128 2230 2234 2238 2253 1085 ASMD5 ADDRESS. HEX LOCATION(OOQOO2BFE) IN CSECT(I7869 ) LENGTH (4) 
1176 $$ERR ADDRESS. HEX LOCATTON(OOOO2D4A) IN CSECT(1I7869 ) LENGTH (6) 949 
1174 9 30 ASMD6 ADDRESS. HEX LOCATION(000029FA) IN CSECT(I7869 ) LENGTH (4) 
1860 $CONC ADDRESS. HEX LOCATION(00003290) IN CSECT(I7869 ) LENGTH(2) 952 
719 1991 10 22 ASMD7 ADDRESS. HEX LOCATION(00002B3C) IN CSECT(I7869 ) LENGTH(6) 
1926 $SCONX ADDRESS. HEX LOCATTON (00003314) IN CSECT(I7869 ) LENGTH(1) 1009 1016 
naae sine aa 820 856 59 1077 1083 1087 1051 ASMD8 ADDRESS. HEX LOCATION (00002B94) IN CSECT(I7869 ) LENGTH(2) 
1562 $SDIAG Ba HEX LOCATION(00003176) IN CSECT(I7869 ) LENGTH (6) 1081 ASMD9 Fo aaa HEX LOCATION (OO0002BF4) IN CSECT (17869 ) LENGTH (4) 
1902 SERR$ ADDRESS. HEX Loc ATION (000032c4) IN CSECT(1I7869 } LENGTH (6) 1037 ASME1 ADDRESS. HEX LOCATION (OOO0O02B6E) IN CSECT(I7869 ) LENGTH (2) 
720 745 747 751 761 63 770 805 807 1030 
809 843 845 847 £875 £&77 ~~ 879 887 893 1047 ASME2 ADDRESS. HEX LOCATION (00002B88) IN CSECT(I7869 ) LENGTH(4) 
898 904 908 910 916 922 924 926 931 1035 1041 
933 939 941 958 960 982 984 996 998 1042 ASME3 ADDRESS. HEX LOCATION(00002B7A) IN CSECT(I7869 ) LENGTH(4) 
1000 1002 1014 1028 1033 1039 1043 1045 1048 1036 
1050 1056 1058 1062 1064 1070 1072 1074 1076 1931 BEGIN ADDRESS. HEX LOCATION(0000331E) IN CSECT(I7869 ) LENGTH(2) 
1138 1142 1152 1168 1173 1182 1992 2006 2008 1948 
2012 2017 2029 2031 2051 2053 2060 2073 2078 1952 BIT 0080 ABSOLUTE. HEX VALUE(00000080) 
2104 2176 2179 2200 2218 2223 2262 2267 2277 1922 
2291 2333. 2344 2349 2365 2370 2407 BLK ADDRESS. HEX LOCATION (00003A38) IN CSECT(I7869 ) LENGTH(2) 
562 SINTL ADDRESS. HEX LOCATION(00002690) IN CSECT(I7869 ) LENGTH (2) 2152 2160 2162 2164 6 
1779 1869 1947 BUFPT ADDRESS. HEX LOCATION (00003426) IN CSECT(I7869 ) LENGTH (2) 
532 $SIOIN ADDRESS. HEX LOCATION (0000265C), IN CSECT(I7869 ) LENGTH (2) 1907 
1157 1176 1635 1693 1773 1810 1871 492 B60 ABSOLUTE. HEX VALGE (000000 1C) 
533 $ISB ADDRESS. HEX LOCATION (0000265E) IN CSECT(I7869 ) LENGTH(2) 733 965 1008 1051 
1636 1774 1813 1872 493 B61 ABSOLUTE. HEX VALUE(0000001D) 
517 $LE ABSOLUTE. HEX VALUE (00000026) 734 1017 1053 
1641 1781 u9u B62 ABSOLUTE. HEX VALUE (000000 15) 
2210 $LIST 2 ABDRESS. HEX LOCATION (00003792) IN CSECT(I7869 ) LENGTH(1) | ree 154 821 860 1222 2003 2132 2149 2272 
2249 $LST ADDRESS. HEX LOCATION (0000382E) IN CSECT(I7869 ) LENGTH(6) 495 B63 ABSOLUTE. HEX VALUE(0000001F) 
2246 2080 2107 2123 2226 2241 2269 2351 
2227 $LSTF >ADDFESS. HEX LOCATTON (000037C6) IN CSECT(I7869 ) LENGTH (6) 1386 CB29 seo HEX LOCATION (00003080) IN CSECT(I786€9 ) LENGTH (2) 
2244 $LSTG ADDRESS. HEX LOCATION (00003816) IN CSECT(17869 ) LENGTH (6) 521 CE  BBSOLUTES HEX VALUE (0000002a) 
2254 $LSTZ >ABDRESS. HEX LOCATION (00003848) IN CSECT(I7869 ) LENGTH (4) 601 CICB seer HEX VALUE (00000014) 
1533 $RD ADDRESS, HEX LOCATION (0000311C) IN CSECT(I7869 ) LENGTH (2) 1275 CLDCB yep HEX LOCATION (OO0002FD2) IN CSECT(I7869 ) LENGTH (2) 
1525 $RDID ADDRESS. HEX LOCATION (00003102) IN CSECT(I7869 _) LENGTH (6) 1419 CMPRW ADDPESS. HEX LOCATION (O000309A) IN CSECT(I7869 ) LENGTH (4) 
750 (769 808 846 938 57 1027 1172 2011 812 850 882 
2059 2077 2217 2266 2332 2348 1463 CONVT ADDRESS. HEX LOCATION(000030B0) IN CSECT(I7869 ) LENGTH (4) 
2354 $RDIM grope ese es LOCATION (00003990) IN CSECT (17869 ) LENGTH (6) gnee 799 837 92:5 955 1007 1163 2055 2213 
1540 SRDVY ADDRESS. HEX LOCATION (00003130) IN CSECT(I7869 ) LENGTH (6) 1185 CPUID ABSOLUTE. HEX VALUE (00000232) 
915 925 1073 1141 2016 2178 2199 724 
1522 $RECL ADDRESS. HEX LOCATION(OOOO30FA) IN CSECT(I7869 ) LENGTH(6) 519 cs ABSOLUTE. HEX eee oOo OR ee) 
744 995 1055 2005 1621 1624 1730 1771 1800 
1546 $RKEW ADDRESS. HEX LOCATION (00003140) IN CSECT (17869 y LENGTH (6) 520 CSA ABSOLUTE. HEX VALUE (00000029) 
878 1032 1038 1167 2072 2103 2222 2261 2343 1805 
2386 $SDD ADDRESS. HEX LOCATION(OO0039FE) IN CSECT(I7869 ) LENGTH(4) 550 CSBUF ADDRESS. HEX LOCATION (0000267A) IN CSECT(I7869 ) LENGTH (1) 
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1314 
558 
1397 
1398 
2416 
540 
541 
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105 
535 
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3008 
2464 
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FORMAT OR WRITE 


NAME 


CS DCB 
CSTL8 
CTRO2 
CTRO3 
DATAA 
DCBUF 
DCB1 
DC2PT 
DEVADD 
DEV 1 
DEV4 
DGDCB 
DU MMY 
ENTPT 
EQ 

ER 


ERLST 


ERRCT 
ERSEC 
EVO0O 
EXIT 
FAKETU 
FILL 
FIVEY 
FIXH1 
FXH1 
FO00017 
F00155 
FO00172 
F00334 
F00350 
HEAD 
HEAD2 
HEAD3 
HEAD4 
HEBLK 
HEX 
HTOE 
IDLE 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
TOBLK 
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CEFOSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


1321. 1632 
ADDRESS. HEX LOCATION(00003012) IN 


DDPESS, HEX LOCATION (00002688) IN 
DRESS. HEX LOCATION (00003096) IN 
814 85 889 891 96 
DRESS. HEX LOCATION(00003098) IN 
853. 885 888 
PESS. HEX LOCATION(00003A72) IN 
PRESS. HEX LOCATION (0000266A) IN 
RESS. HEX LOCATION(0000266A) IN 
RESS. HEX LOCATION(00003428) IN 
HEX LOCATION (000019D0) IN 
1 1830 1927 2021 2082 
jHEX LOCATION (00002662) IN 
HEX LOCATION (00002668) IN 
HEX LOCATION (00002FC2) IN 
HEX VALUE (00000000) 
HEX LOCATION(000025A6) IN 
HEX VALUE (00000000) 
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00003AD2) IN 

ae ALUE (00000006) 

RESS. HEX LOCATION (0000342C) IN 
DRESS. HEX LOCATION (00003A76) IN 
DDRESS. HEX LOCATION (00003082) IN 
DDRESS. HEX LOCATION(0000281A) IN 
DRESS. HEX LOCATION(00002DB6) IN 
RESS. HEX LOCATION (000025B4) IN 
RESS. HEX LOCATION (000025BA) IN 
RESS. HEX LOCATION(000025F8) IN 
RESS. HEX LOCATION(0000260A) IN 
RESS. HEX LOCATION (00002634) IN 
RESS. HEX LOCATION(00003A40) IN 
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2157 

DDPESS. HEX LOCATION(00003AA6) IN 
2146 2155 

DDRESS. HEX LOCATION (00003AA8) IN 
27144 2945 2151 24 
: DDRESS. HFX LOCATION(00003A42) IN 
‘ DDRESS. HEX LOCATION (0000342F) IN 

BSOLUTE. HEX VALUE (00000001) 

BSOLUTE. HEX VALUE(0000001A) 
1904 2163 

BSOLUTE. HEX VALUE (00000002) 

PSOLUTE, HEX VALUE (00000023) 
1639 1651 1770 
; DDRESS. HEX LOCATION(00003288) IN 
; DDRESS. HFX LOCATION (000031F0O) IN 
; DDRESS. HEX LOCATION(00003208) IN 
: DDRESS. HEX LOCATION (00003210) IN 
, DDRESS. FEX LOCATION (00003214) IN 

BSOLUTE. HEX VALUE (00000000) 

64 401 42 

DDRESS. HEX LOCATION (00003244) IN 
1784 1787 

DDPESS. HEX LOCATION (0000321C) IN 
1735 1739 1741 
: DDPESS. HEX LOCATION (0000322A) TN 
‘ DDRESS. HEX LOCATION (00003238) IN 

DDRESS. YEX LOCATION(0000327C) IN 

22 1640 1870 
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LENGTH (2) 
LENGTH (2) 
LENG TH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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LENGTH (2) 
LENGTH (45) 
LENGTH (2) 
LENGTH (4) 
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LENGTH (1) 
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1976 
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FORMAT OR WRITE P/N 
CROSS-REFERENCE LIST 
NAME ATTRIBUTES AND REFERENCES 
TODCB ADDRESS. HEX LOCATION (00003280) IN 
1519 1522 1525 1537 1540 1543 
1562 1622 1628 1869 2354 
TOMOD RDBRESS, HEX LOCATION (00003282) IN 
17869 CSECT. START (00002500) LENGTH (6804 
JOE ADDRESS. HEX LOCATION(00003076) IN 
2312 2315 2317 
LGSEC ADDRESS. HEX LOCATION(0000307C) IN 
736 766 792 818 #819 35 
944 946 954 969 971 1006 
1466 1469 1476 1995 2054 2067 
2212 2235 2280 2321 2338 2339 
LINE1 ABDRESS. HEX LOCATION (00003356) IN 
LSTG > ADDRESS. HEX LOCATION(00003662) IN 
LSTIO ADDRESS. HEX LOCATION(00002660) IN 
1177. 1626 1873 
MESS OT: aa HEX LOCATION(O0002C14) IN 
MESS1 ADDRESS. HEX LOCATION(00002C16) IN 
MESS2 ADDRESS. HEX LOCATION(00002C3C) IN 
MESS3 RDBRESS- HEX LOCATION(00002C3E) IN 
MESSU jABBRESS. HEX LOCATION(00002C58) IN 
MESS5 PY ae HEX LOCATION(O0OO00O2C5A) IN 
MT BBSOLUTE. HEX VALUE (00000020) 
MVBUF ADDRESS. HEX LOCATION (000032E2) IN 
NG ABSOLUTE. HEX VALUE(0000002C) 
NI ,RBSOLUTE. HEX VALUE (00000027) 
N00001 ADDRESS. | HEX LOCATION (00002530) IN 
N00002 ADDRESS. HEX LOCATION (00002534) IN 
N00003 ADDRESS; HEX LOCATION (00002540) IN 
NO0004 ADDRESS. HEX LOCATION (00002552) IN 
N00005 ADDRESS. HEX LOCATION (00002556) IN 
N00006 ADDRESS. HEX LOCATION(0000255A) IN 
N00007 ADDRESS. HEX LOCATION(0000255E) IN 
333. 382 #8439 
N00008 ADDPESS. HEX LOCATION (00002578) IN 
N00009 ADDPESS. HEX LOC ATION(00002584) IN 
N00010 ADDRESS. HEX LOCATION (00002596) IN 
y00011 ADDRESS. | HEX LOCATION (00002598) IN 
OD01 ADDPESS. HEX LOCATION (00003CB2) IN 
ONESK ADDRESS. HEX LOCATION(00003586) IN 
ONSK >ADDPESS. HEX LOCATION(0000359C) IN 
ONSKS >ADDRESS. HEX LOCATION(00003986) IN 
OPTN1 ADDRESS. HEX LOCATION(00002654) IN 
718 1729 1769 1990 
OPTN3 ADDRESS. | HEX LOCATION (00002658) IN 
ouUT ABSOLUTE. HEX VALUE (00000000) 
1082 1086 1090 2107 2156 2158 
PARM ABSOLUTE. HEX VALUE (00000000) 
PARMAFA ADDRESS, HEX LOCATION (0000196E) IN 
PHYSC ADDRESS. HEX LOCATION (0000307E) IN 
768 800° 801 838 839 72 
956 1010 1022 1023 1024 1025 
1473 1478 2056 2057 2101 2214 
PID ADDRESS. HEX LOCATION(00001800) IN 
71 72 73 7U 75 16 
80 81 82 83 Bu 85 
89 90 91 92 93 94 
98 99 100 101 102. +103 
107 108 109 110 #111 112 
PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 
PREP {ESOL OTE. HEX VALUF(0000000C) 
RDBUF ADDRESS. HEX LOCATION(00002FC2) IN 
RDDCB ADDRESS. HEX LOCATION (00003042) IN 
742. 1145 1146 49 
RESET CE aaa HEX VALUE (00000008) 
RICB ABSOLUTE. HEX VALUE (00000013) 
RKDCB ADDRESS. HEX LOCATION (00003062) IN 
873 1023 1165 1546 1551 2057 
RSDCB ADDRESS. EX LOCATION (O0Q02FF2) IN 
740 748 #768 800° #838 36 
1525 1530 2009 2056 2215 2329 
RTTO1 {ADDF ESS. HEX LOCATION(000030DE) IN 
PT4O01 ADDPESS. HEX LOCATION(00002732) IN 
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DECLARED NAME DECLARED NAME 


783 RT405 ADDRESS. LOCATION(000027B0) IN CSECT(I7869 +) LENGTH (4) 2025 TS69T ADDRESS. HEX LOCATION (000034C8) IN CSECT (17869 LENGTH (6) 
828 RT416 ADDRESS. LOCATION (00002874) IN CSECT(I7869 ) LENGTH (6) 2140 TS6 9U ADDRESS. HEX, LOCATION (00003698) IN CSECT (17869 LENGTH (f) 
842 RT417 ADDRESS. LOCATION (000028BC) IN CSECT(I7869 ) LENGTH (4) 2046 TS69W ARDFESS. HEX LOCATION(00003524) IN CSECT(I7869 LENGTH (6) 
871 PT419 ADDRESS. LOCATION(0000292A) IN CSECT(I7869 ) LENGTH (6) 2171 TS 69X pe buneeD: HEX LOCATION (O000370F) IN CSECT (17869 LENGTH (6) 
872 RT420 ADDRESS, | LOCATION (00002930) IN CSECT(I7869 ) LENGTH (6) 2183 TS6 9Y ADDRESS. HEX LOCATION (0000373C) IN CSECT (17869 LENGTH (6) 
837 RT500 ADDRESS. HEX LOCATION(000028A4) IN CSECT(I7869 +) LENGTH (4) 2089 TS69Z ADDPESS. HEX LOCATION(000035BE) IN CSECT(I7869 LENGTH (6) 
539 SCTID ADDRESS. HEX LOCATION (00002662) IN CSECT (17869 ) LENGTH (2) 2108 TS699 ADDRESS. HE LOC ATTON (00003608) . IN CSECT (17869 LENGTH (6) 
740 752 #773 #777 ~«2779 81 787 789 942 2066 2079 508 2106 52 
961 963 989 990 991 992 1127 1128 1129 1473 TT303 ADDRESS. HEX LOCATION(000030D6) IN CSECT (17869 LENGTH (6) 
1147 1148 149 1175 1297 1376 1420 1527 1530 1465 
1548 1554 013 2063 2065 2122 2129 2240 2250 1479 TT 304 ADDRESS. HEX LOCATION(O00030EE) IN CSECT (17869 LENGTH (4) 
2256 2336 389 2396 2399 2400 2400 2402 1463 1472 1474 
2272 SDD aRDPEESS: , LOCATION (00003870) IN CSECT(I7869 ) LENGTH (2) 2193 TT69 aADDPESS. HEX LOCATION (00003752) IN CSECT(1I7869 LENGTH (4) 
2283 SDD1 > ADDRESS. LOCATION (00003896) IN CSECT(I7869 ) LENGTH(4) 2204 TT69A >ADDRESS. HEX LOCATION(0000377A) IN CSECT (17869 LENGTH (6) 
2319 SDD 10 jADDRESS. LOCATION (00003922) IN CSECT(I7869 ) LENGTH(2) 2196 TT69L ADDPRSS. HEX LOCATION(00003762) IN CSECT(1I7869 LENGTH (6) 
2303 SDD11 ARDPESS. LOCATION (O00038EC) IN CSECT(I7869 ) LENGTH (6) 2160 TT69R ADDRESS. HEX LOCATION(000036E6) IN CSECT(17869 LENGTH (6) 
2284 SDD12 pAROPESS. LOCATION (0000389A) IN CSECT(I17869 ) LENGTH (6) 2162 TT69S ADDRESS. HEX LOCATION (QO0036EE) IN CSECT(1I7869 LENGTH (4) 
2353 SDD13 a ADDRESS, | LOCATION (0000398C) IN CSECT(I7869 ) LENGTH (4) 2206 TT69Y »sRDRESS. HEX LOCATION (00003782) IN CSECT (17869 LENGTH (6) 
2135 SDD14 ADDRESS. LOCATION (0000368C) IN CSECT(I7869 ) LENGTH (4) 2208 TT69Z oABDRESS HEX LOCATION(0000378E) IN CSECT (17869 LENGTH (4) 
2342 SDD16 ADDRESS. LOCATION (0000396E) IN CSECT(I7869 ) LENGTH (2) 100 TUINPT ADDRESS. HEX LOCATION (00001948) IN CSECT (17869 LENGTH (1) 
2337 755 758 759 764 7 1 784 790 792 
2327 SDD2 ADDRESS. HEX LOCATION (00003934) IN CSECT(I7869 ) LENGTH(3) 793 794 795 1796 797 802 815 828 830 
2281 2322 374 834 835 840 854 903 912 913 961 963 
2293 SDD3 ARDPESS. LOCATION (OO0038BE) IN CSECT(I7869 ) LENGTH (6) wae 978 979 980 993 994 1006 1066 1067 
2297 SDD4 ADDRESS. LOCATION (000038CE) IN CSECT(I7869 ) LENGTH (6) 96 TULAST ADDRESS. X LOCATION(000018C4) IN CSECT (T7869 | 2b ENGTH (1) 
2287 2110 211 th 212 2229 3 2 2245 
2288 SDD5 ADDRESS. LOCATION (O000038AA) IN CSECT(I17869 ) LENGTH (6) a2 TUMSGWIR {ADPRESS. HEX LOCATION(000018BA) IN Sadr (T4809 - * LENGTH (1) 
2290 SDD6 ADDRESS. LOCATION(000038B6) IN CSECT(I7869 ) LENGTH(4) 98 TURESUL {ABDRESS; HEX LOCATION (000018C8) IN CSECT (17869 LENGTH (1) 
2309 SDD7 ADDRESS. LOCATION(OOOO38FA) IN CSECT(I7869 +) LENGTH(4) 563 TURTN ADDRESS. HEX LOCATION (00002692) IN CSECT (17869 LENGTH (2) 
2313 SDD8 ADDRESS. LOCATION (0000390C) IN CSECT(I7869 ) LENGTH (4) 74 TUSTATUS ABDRESS. HEX LOCATION(00001818) IN CSECT (17869 LENGTH (1) 
2323 SDD9 ADBRESS, LOCATION (00003930) IN CSECT(I17869 ) LENGTH (4) 75 TU WORK sARDEESS. HEX LOCATION(0000181A) IN CSECT (17869 LENGTH (1) 
1184 SEC59 ADDRESS: LOCATION(00002D66) IN CSECT(I7869 ) LENGTH (2) 24 28 TWO2 ADDRESS, HEX LOCATION(OOO03AD0) IN CSECT (17869 LENGTH (2) 
2424 SEC61 ABDRESS. LOCATION (00003AC7) IN CSECT(I7869 ) LENGTH (2) 2357 T69EE siBDRESS- HEX LOCATION(0000399A) IN CSECT(1I7869 LENGTH (4) 
1303 SKDCB ADDRESS. LOCATION (00003002) IN CSECT(I7869 ) LENGTH(2) 2328 T69LL ADDRESS. HEX LOCATION(00003938) IN CSECT(1I7869 LENGTH (4) 
7157 715 759 775 7179 31 832 833 867 2341 
905 90 919 920 929 948 950 951 968 2339 T6900 ADDPESS. HEX LOCATION(00003964) IN CSECT (17869 LENGTH (6) 
993 99 1059 1060 1130 1150 1519 2001 2002 2135 
2023 202 2026 2033 2035 2040 2041 2046 2047 2364 T69XA ADDRESS. HEX LOCATION(000039B8) IN CSECT(1I7869 LFNGTH (4) 
2084 2086 2087 2089 2091 2095 2096 2098 2099 2381 
2112 217 2172 2183 2184 2231 2286 2288 2289 2376 T6 9XB ADDRESS. HEX LOCATION(000039E2) IN CSECT (17869 LENGTH (4) 
2293. 2295 2300 2301 2303 2304 2361 2362 2377 2372 
2378 238 2377 T69XC ADDRESS. HEX LOCATION(000039E6) IN CSECT(I7869 LENGTH (6) 
2269 SKW ADDRESS. HEX LOCATION(0000386C) IN CSECT(I7869 ) LENGTH (2) 2375 
2264 2361 T69XX ADDRESS. HEX LOCATION(000039A6) IN CSECT(1I7869 LENGTH (6) 
591 START ABSOLUTE. HEX VALUE(0000000A) 2359 
1643 729 T78TC ADDRESS. HEX LOCATION(000026CC) IN CSECT (17869 LENGTH (6) 
1234 STOR ADDRESS. LOCATION (OOO02DAA) IN CSECT(I7869 ) LENGTH (4) 726 
1242 730 T78T 1 ADDRESS. HEX LOCATION(000026D2) IN CSECT (17869 LENGTH (4) 
104 SUPSTAT ADDRESS. LOCATION (000019C4) IN CSECT(I7869 ) LENGTH (1) 727 728 729 
1922 731 T785 ADDRESS. HEX LOCATION(000026D6) IN CSECT(1I7869 LENGTH (2) 
2427 THRE ADDRESS. LOCATION (QOOO3ACE) IN CSECT(I7869 ) LENGTH (2) 732 
869 1988 T7897 ADDRESS. HEX LOCATION(00003434) IN CSECT (17869 LENGTH (4) 
2256 TSK ADDRESS. LOCATION (0000384C) IN CSECT(I7869 ) LENGTH (6) 368 
2220 716 T7899 ADDRESS. HEX LOCATION (000026A2) IN CSECT (17869 LENGTH (4) 
2260 TSKEW ADDRESS. LOCATION (00003856) IN CSECT(I7869 ) LENGTH (2) 405 
2257 7179 TO9A ADDRESS. HEX LOCATION(0000279C) IN CSECT (17869 LENGTH (6) 
2152 TSS9 ADDRESS. LOCATION (000036C8) IN CSECT(I7869 +) LENGTH(6) 774 
2150 854 TIOB ADDRESS. HEX LOCATION(O00028E4) IN CSECT (17869 LENGTH (6) 
2175 TS69A ADDRESS. LOCATION(00003726) IN CSECT(I7869 ) LENGTF(4) 890 
2187 888 TI9C ADDPESS. HEX LOCATION(00002966) IN CSECT(1I7869 LENG TH (6) 
20 37 TS69B ADDRESS. LOCATION (O00034F8) IN CSECT(I7869 /) LENGTH (6) 884 
2024 2094 787 T99D ADDRESS. HEX LOCATION(000027C0) IN CSECT (17869 LENGTH (6) 
2015 TS69C ADDRESS. LOCATION(000034A8) IN CSECT(I7869 ) LENGTH (2) 785 
2032 857 TIIE ADDRESS. HEX LOCATION (000028F0) IN CSECT(I7869 LENGTH (6) 
20 28 TS69D ADDRESS. LOCATION(OO0034DA) IN CSECT(I7869 ) LENGTH(4) 855 
2045 2049 792 TOOF ADDRESS. HEX LOCATION(000027D8) IN CSECT (17869 LENGTH (6) 
2137 TS69E ADDRESS. LOCATION (00003690) IN CSECT(I7869 ) LENGTH(4) 829 
2039 818 T99G ADDRESS. HEX LOCATION(0000284A) IN CSECT (17869 LENGTH (6) 
2050 TS69F ADDRESS. LOCATION (00003538) IN CSECT(I7869 ) LENGTH(4) 816 
2043 3888" “2097 2100 799 T99H ADDRESS. HEX LOCATION (00002800) IN CSECT (17869 LENGTH (4) 
2021 TS69G ADDRESS. HEX LOCATION(000034B8) IN CSECT(I7869 ) LENGTH (6) B25 82 
2019 885 T9 9K ADDRESS. HEX LOCATION(0000295A) IN CSECT (17869 LENGTH (6) 
2101 TS6 9H ADDRESS. LOCATION(000035F2) IN CSECT(I7869 ) LENGTH(6) B49, 
2062 2335 891 TOOL ADDRESS. HEX LOCATION(00002974) IN CSECT(1I7869 LENGTH (6) 
2095 TS69I ADDRESS. LOCATION(000035D6) IN CSECT(I7869 ) LENGTH (6) 881 8 
2090 874 TI9OM ADDRESS. HEX LOCATION (0000293C) IN CSECT (17869 LENGTH (4) 
2098 TS69J ADDRESS. LOCATION(000035E4) IN CSECT(I7869 # ) LENGTH (6) 892 
2092 1221 T99P ADDRESS. HEX LOCATION(00002D84) IN CSECT(I7869 LFNGTH (4) 
2082 TS69K ADDRESS. LOCATION(000035A0) IN CSECT(I7869 ) LENGTH (6) 798 83 
2069 896 TIOR ADDRESS. HEX LOCATION(00002980) IN CSECT (17869 LENGTH (6) 
2055 TS69L ADDRESS; LOCATION(0000354A) IN CSECT(I7869 ) LENGTH(4) 811 81 
2070 1236 TIORR ADDRESS. HEX LOCATION(00002DB2) IN CSECT(1I7869 LENGTH (4) 
2093 TS69M ADDRESS. LOCATION(000035CE) IN CSECT(I7869 ) LENGTH (6) 1221 1223 
2085 865 T9991 ADDRESS. HEX LOCATION (00002912) IN CSECT (17869 LENGTH (6) 
20 33 TS69P ADDRESS. LOCATION (OO00034E8) IN CSECT(I7869 ) LENGTH (6) 861 
2022 826 T9992 ADDRESS. HEX LOCATION(0000286C) IN CSECT(I7869 LENGTH (6) 
2068 TS69Q ADDRESS. LOCATION(0000357C) IN CSECT(I7869 ) LENGTH (6) 822 
2134 1336 VRDCB ADDRESS. HEX POC RT TON (ogo a7) IN CSECT (T7869 eee 
2149 TS69R ADDRESS. LOCATION (O00036BE) IN CSECT(I7869 ) LENGTH(2) 911 912 913 91 33 1134 (1135 
2141 1540 1997 1998 1999 2000 2027 2037 2038 
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2186 2194 2195 
2297 2298 2363 
CSECT (17869 ) LENGTH(4) 
CSECT(I7869  ) LENGTH (2) 
CSECT(I7869 ) LENGTH (2) 
CSECT (17869 ) LENGTH (2) 
CSECT (17869 F LENGTH (2) 
1127. 1128 1129 
CSECT (17869 ) LENGTH (4) 
CSECT(I7869 ) LENGTH (4) 
1144 1154 
CSECT(I7869 ) LENGTH (6) 
CSECT(I7869 ) LENGTH (2) 
824 826 830 
865 869 871 
978 979 980 
1224 1225 1226 
1555 1559 
CSECT(I7869 ) LENGTH(2) 
1171 1736 1798 
2177 2198 2216 
2347 2368 
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